home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 2000 June / macformat-091.iso / Shareware Plus / Development / LitheFM Toolkit / Field Index Tool / Field Index Tool (.txt)
Encoding:
FileMaker Pro Database  |  2000-03-23  |  90.0 KB  |  1,268 lines  |  [FMP5/FMP5]
  1.  Copyright 1984-1999 FileMaker, Inc. 
  2. HBAM2016AUG95
  3. Pro 5.0
  4. globals@
  5. index@
  6. macos@
  7. preferences@
  8. HBAM3016AUG95@
  9. importer
  10. registerB
  11. register
  12. serialB
  13. specwriter
  14. systemtext
  15. testB
  16. serial
  17. dataB
  18. emtext
  19. dataB
  20. dataB
  21. pathB
  22. portal
  23. displayB
  24. portal
  25. highlightB
  26. fieldB
  27. totalB
  28. displayB
  29. childB
  30. constant
  31. counterB
  32. displayB
  33. emailB
  34. email
  35. addressB
  36. enteredB
  37. entered
  38. entered
  39. fieldB
  40. findB
  41. formatB
  42. foundB
  43. buttonB
  44. counterB
  45. parent
  46. portal
  47. displayB
  48. portal
  49. highlightB
  50. displayB
  51. highlightB
  52. nameB
  53. addressB
  54. nameB
  55. phoneB
  56. titleB
  57. parentB
  58. parent
  59. phoneB
  60. phone
  61. formatB
  62. portalB
  63. portal
  64. sortB
  65. recordB
  66. record
  67. typeB
  68. serialB
  69. serial
  70. counterB
  71. serial
  72. sortB
  73. titleB
  74. totalB
  75. typeB
  76. updatedB
  77. updated
  78. updated
  79. updated
  80.     3/23/20009
  81.     Helvetica
  82. Geneva
  83. Pro 5.0F!
  84. USENGLSH.MPR
  85. USER.UPR
  86. 1st Quarter
  87. 2nd Quarter
  88. 3rd Quarter
  89. 4th Quarter
  90. CONSTANT
  91. C_DELIMITER
  92. C_FIELDS
  93. DATABASE_CHOICE
  94. FIELD_CHOICE
  95. FIELD_CONTENTS
  96. FIELD_TYPE
  97. G_APPLESCRIPT_FLAG
  98. G_CONTENTS_LABEL
  99. G_CONTENT_FLAG
  100. G_DELIMITER
  101. G_DELIMITER_FLAG
  102. G_EMPTY_FLAG
  103. G_INDEX_FLAG
  104. G_OPEN_DATE
  105. G_REGISTER
  106. OPEN_DATABASES
  107. SERIAL_NUM
  108. constantB
  109.     Helvetica
  110. Geneva
  111. open_DatabasesB
  112. database_ChoiceB
  113. c_FieldsB
  114. field_ChoiceB
  115. field_ContentsB
  116. serial_NumB
  117. g_Content_FlagB
  118. g_Index_FlagB
  119. FlagB
  120. g_DelimiterB
  121. g_Delimiter_FlagB
  122. c_DelimiterB
  123.  = 1 
  124. Check Registration
  125. Get Field Index
  126. Get Field Contents
  127. Get Field Calculation
  128. Go to Database Choice
  129. Go to Field Choice
  130. About this tool ...
  131. Preferences ...
  132. Email Lithe
  133. Open Lithe.com
  134. Get Field Index
  135. d Index
  136.     Helvetica
  137. Geneva
  138. Times
  139. (LIST
  140. VDEFA(
  141. (LIST
  142. VDEFA(
  143. A    File ListB
  144. Field List
  145. 1B?Register_TM.fp5
  146. test_Serial.fp5
  147. SystemText
  148. SpecWriter
  149. Importer
  150. UnstoredCalc Number Unindexed 1
  151. red_By
  152. updated_On
  153. updated_By
  154. updated_At
  155. original_Text
  156. g_Sub_Calc
  157. g_Calc_ID
  158. calc_ID
  159. sub_Calc_ID
  160. search_String
  161. replace_String
  162. c_Portal_Sort
  163. portal_Sort
  164. g_Portal_High
  165. c_Portal_High
  166. calc_Notes
  167. sub_Calc
  168. g_Portal_Counter
  169. search_Field_Flag
  170. replace_Field_Flag
  171. c_Pairs
  172. c_Found
  173. c_Total
  174. open_Databases
  175. search_File_Choice
  176. c_Search_FieldsList
  177. sub_Name
  178. replace_File_Choice
  179. c_Replace_FieldsList
  180. c_Calc_Constant
  181. c_Total_Calcs
  182. g_Register
  183. g_Open_Date
  184. UnstoredCalc Number Unindexed 1
  185. c Number Unindexed 1
  186. StoredCalc Number Unindexed 1
  187. ithe (lth):
  188.               1.Readily bent; supple: lithe birch branches. 
  189.               2.Marked by effortless grace: a lithe ballet dancer. 
  190. Standard Text Unindexed 1
  191. g_Layout_Fields
  192. all_File_ID
  193. field_Options_Sort
  194. c_Access_Sort
  195. UnstoredCalc Text Unindexed 1
  196. PreferencesB
  197. Alexandria
  198. FileMaker Pro
  199. APPLFMP5
  200. FileMaker Pro 5 Folder
  201. <Alexandria:Applications:FileMaker Pro 5 Folder:FileMaker Pro
  202. Alexandria
  203. Alexandria
  204. j zerger
  205. .aevtoappnull
  206. .aevtoappnull
  207. .coresetdnull
  208. !) = "them"    !W
  209. ) = 0    
  210.  "container") > 0
  211.     containerG
  212. Cancel
  213. Sorry, the field you specified is a container field, and I can't read container data.D>
  214. eat with i from 1 to (the count of items of the_Values)
  215.         if the_Index contains next_Value or next_Value = "" then
  216.         else
  217.             set the_Index to the_Index & next_Value
  218.         end 
  219. "Text"
  220. Go to Database Choice
  221.  "Field Index Tool"
  222.  "")}
  223. Field Index Tool
  224.     Helvetica
  225. Geneva
  226. Times
  227. (LIST
  228. VDEFA(
  229. (LIST
  230. VDEFA(
  231. A    File ListB
  232. Field List
  233. Get Field Contents
  234. Cancel
  235. You need to be using the MacOS with Applescript installed to use this function.DX
  236.  "container") > 0
  237.     containerG
  238. Cancel
  239. Sorry, the field you specified is a container field, and I can't read container data.F>
  240.     the_Index
  241. .coresetdnull
  242. field_Contents
  243. the_contents
  244. the_Contents
  245. FileMaker Pro
  246. tents
  247. Alexandria
  248. FileMaker Pro
  249. APPLFMP5
  250. FileMaker Pro 5 Folder
  251. <Alexandria:Applications:FileMaker Pro 5 Folder:FileMaker Pro
  252. Alexandria
  253. Alexandria
  254. j zerger
  255. .aevtoappnull
  256. .aevtoappnull
  257. next_value
  258. next_Value
  259. .corecnte****
  260. the_values
  261. the_Values
  262. the_values
  263. the_Values
  264.     the_index
  265.     the_Index
  266. the_contents
  267. the_Con
  268. tents
  269. the_contents
  270. the_Contents
  271.     the_delim
  272.     the_Delim
  273.     the_index
  274.     the_Index
  275. the_contents
  276. the_Contents
  277. .corecnte****
  278.     the_ind
  279. the_values
  280. the_Values
  281. next_value
  282. next_Value
  283. .corecnte****
  284. the_values
  285. the_Values
  286.     the_index
  287.     the_Index
  288. next_value
  289. next_Value
  290. next_value
  291. next_Value
  292.     the_index
  293.     the_Index
  294. next_value
  295. next_Value
  296.     the_index
  297.     the_Index
  298. the_values
  299. the_Values
  300. nulltell application "FileMaker Pro"
  301.     set the_File to get data cell "database_Choice"
  302.     set the_Field to get data cell "field_Choice"
  303.     set the_Delim to get data cell "c_Delimiter"
  304.     set the_Values to get data field the_Field of database the_File as list
  305.     set the_Index to {}
  306.     set next_Value to item 1 of the_Values
  307. if the count of items of the_Values > 1 then
  308.     repeat with i from 1 to (the count of items of the_Values)
  309.         if the_Index contains next_Value or next_Value = "" then
  310.             set the_Index to the_Index & next_Value
  311.         end if
  312.         set next_Value to item i of the_Values
  313.     end repeat
  314. set the_Index to the_Values
  315. end if    
  316.     set the_Contents to ""
  317.     repeat with i from 1 to (count of items of the_Index)
  318.         set the_Contents to the_Contents & the_Delim & item i of the_Index
  319.     end repeat
  320.     set data cell "field_Contents" to the_Contents
  321. end tell
  322. FasdUAS 1.101.10
  323. .coregetd****
  324. the_file
  325. the_File
  326.     the_field
  327.     the_Field
  328.     the_delim
  329.     the_Delim
  330. the_values
  331. the_Values
  332.     the_index
  333.     the_Index
  334. next_value
  335. next_Value
  336. .corecnte****
  337. the_contents
  338. the_Contents
  339. .coresetdnull
  340. ("Field Index Tool"
  341.  "Text Index")
  342. Field Index Tool
  343. Text Index
  344. the_values
  345. the_Values
  346. next_value
  347. Go to Field Choice
  348.     Helvetica
  349. Geneva
  350. Times
  351. (LIST
  352. VDEFA(
  353. (LIST
  354. VDEFA(
  355. A    File ListB
  356. Field List
  357. the_values
  358. the_Values
  359. the_contents
  360. the_Contents
  361.     the_delim
  362.     the_Delim
  363. the_values
  364. the_Values
  365. the_contents
  366. the_Contents
  367. .corecnte****
  368. the_values
  369. the_Values
  370. the_values
  371. the_Values
  372. the_contents
  373. the_Contents
  374. .coresetdnull
  375. field_Contents
  376. the_contents
  377. the_Contents
  378. field_Choice
  379.     the_field
  380.     the_Field
  381. .coregetd****
  382. c_Delimiter
  383.     the_delim
  384.     the_Delim
  385. .coregetd****
  386.     the_field
  387.     the_Field
  388. the_file
  389. the_File
  390. the_values
  391. the_Values
  392. the_contents
  393. the_Contents
  394. .corecnte****
  395. the_values
  396. the_Values
  397. .corecnte****
  398. .coresetdnull
  399. hascr
  400. ]nulltell application "FileMaker Pro"
  401.     set the_File to get data cell "database_Choice"
  402.     set the_Field to get data cell "field_Choice"
  403.   set the_Delim to get data cell "c_Delimiter"
  404.     set the_Values to get data field the_Field of database the_File as list
  405.     set the_Contents to ""
  406. if the count of items of the_Values > 1 then
  407.     repeat with i from 1 to (count of items of the_Values)
  408.         set the_Contents to the_Contents & the_Delim & item i of the_Values
  409.     end repeat
  410. set the_Contents 
  411. .coregetd****
  412.     the_field
  413.     the_Field
  414. the_file
  415. the_File
  416. the_values
  417. the_Values
  418. gascr
  419. Cancel
  420. You must select both a file and a field for which to get data.
  421. register
  422. register
  423. registerB
  424. registerB
  425. isterB
  426. registerB
  427. replace
  428. choice
  429. oiceB
  430. nameB
  431. nameB
  432. choice
  433. nameB
  434. nameB
  435. nameB
  436. nameB
  437. nameB
  438. total
  439. totalB
  440. totalB
  441. totalB
  442. totalB
  443. totalB
  444. totalB
  445. totalB
  446. totalB
  447. totalB
  448. totalB
  449. totalB
  450. totalB
  451. otalB
  452. totalB
  453. totalB
  454. totalB
  455. otalB
  456. otalB
  457. totalB
  458. totalB
  459. totalB
  460. totalB
  461. totalB
  462. totalB
  463. updated
  464. updated
  465. updated
  466. dated
  467. dated
  468. script
  469. script
  470. nameB
  471. script
  472. notesB
  473. Get Field Calculation
  474.  "Calc") 
  475. CalcG
  476. nulltell application "Filemaker Pro"
  477. set orig_File to the name of window 1
  478. set the_Field to get data cell "field_Choice"
  479. set the_File to get data cell "database_Choice"
  480. set the_Calc to the formula of field the_Field of database the_File
  481. set data cell "field_Contents" of window orig_File to "= " & the_Calc
  482. end tellFasdUAS 1.101.10
  483.     Helvetica
  484. Geneva
  485. Times
  486. (LIST
  487. VDEFA(
  488. (LIST
  489. VDEFA(
  490. A    File ListB
  491. Field List
  492. wwwwww
  493. UUUUUU
  494. DDDDDD
  495. """"""
  496. About this tool ...
  497.     Helvetica
  498. Geneva
  499. Times
  500. (LIST
  501. VDEFA(
  502. (LIST
  503. VDEFA(
  504. A    File ListB
  505. Field List
  506. Preferences ...
  507. "Text"
  508. TextE
  509. ^("")
  510. nulltell application "Filemaker Pro"
  511. set data cell "g_Applescript_Flag" of window "Field Index Tool" to "1"
  512. end tellFasdUAS 1.101.10
  513. .coresetdnull
  514. g_Applescript_Flag
  515. Field Index Tool
  516. FileMaker D
  517. G    File Name
  518. ABBB>>J
  519. Field IndexK
  520. Field ContentsS
  521. Field Nameb
  522. Calculationd
  523. Get Field Dataf
  524. Lithe Integration 
  525. 1999j
  526. Get DataB
  527. Cancel
  528.     S0p    S1@
  529. -- Field Index Tool --
  530. Used to get field indexes, contents and calculations from other Filemaker databases.  Part of the LitheFM Toolkit
  531. Lithe Integration 
  532.  1999
  533. "Text"
  534. TextE
  535. ^("")
  536. _nulltell application "Filemaker Pro"
  537. set data cell "g_Applescript_Flag" to "1"
  538. end tellFasdUAS 1.101.10
  539. .coresetdnull
  540. g_Applescript_Flag
  541. FileMaker Pro    y
  542.      yFMP5
  543. Alexandria
  544. ^RPTH
  545. FPTHA^Alexandria:Desktop Folder:Lithe Projects:Filemaker Tools:Field Index Tool Dev:Field Index Tool
  546. MSPCA
  547. NAMEA
  548. Field Index Tool
  549. RPTHA
  550. Field Index Tool
  551. Alexandria
  552. Field Index Tool
  553. FMP5FMP5
  554. Field Index Tool Dev
  555. ^Alexandria:Desktop Folder:Lithe Projects:Filemaker Tools:Field Index Tool Dev:Field Index Tool
  556. Alexandria
  557. Alexandria
  558. j zerger
  559. A    File ListB
  560. Field ListC
  561. Text IndexE
  562. About
  563. FMRLA
  564. A    Delimiter
  565. AboutB
  566. g_Applescript_FlagB
  567. field_TypeB
  568. g_Contents_LabelB
  569. c_AboutB
  570. AboutB
  571. X)Sorry, I rather you not change that text.
  572. History 
  573. Filemaker built a great 
  574. field index
  575.  into their database software, but I found myself frustrated when I couldn
  576. t find a simple way to get all the values out  of the index in a single go.  I therefore resolved to come up with a simple method to do so, and la viola!
  577. Another bothersome thing about Filemaker
  578. s structure is that you can
  579. t view the field definitions for a database of which you are not the only user.  I found myself printing (to PDF) the field definitions when trying t
  580. Check Registration
  581. ) > 14 
  582. !) = "them"    
  583. Cancel
  584. Sorry, this demo version has expired.  Please register if you wish to continue using this product.
  585. roduct.
  586.     Helvetica
  587. Geneva
  588. Times
  589. number of records (s
  590. g_Empty_FlagB
  591. g_DelimiterB
  592. g_Delimiter_FlagB
  593. c_DelimiterB
  594.  = 1 
  595. ll return the field index in a sorted list.  If this option is not checked, the index will be built in the order the corresponding records were entered.   The default for 
  596. this option is sorted.
  597. 2.  Sort the field contents:  This option will return the field contents in a sorted list.  If this option is not checked, the contents will be listed in the order the corresponding records were entered.  The default for this option is sorted.
  598. 3.  Remove empty values:  This option will remove any empty field values from the returned field index or contents.  The default for this option is NOT to remove empty values.
  599. 4.  Custom delimiter:  Sometimes you may want th
  600. Tnulltell application "FileMaker Pro"
  601.     set the_File to get data cell "database_Choice"
  602.     set the_Field to get data cell "field_Choice"
  603.     set the_Delim to get data cell "c_Delimiter"
  604.     set the_Values to get data field the_Field of database the_File as list
  605.     set the_Contents to ""
  606. if the count of items of the_Values > 1 then
  607.     repeat with i from 1 to (count of items of the_Values)
  608.         if item i of the_Values 
  609.  "" then
  610.             set the_Contents to the_Contents & the_Delim & item i of the_Value
  611.         end if
  612.     end repeat
  613. set the_Contents to the_Values
  614. end if
  615.     set data cell "field_Contents" to the_Contents
  616. end tellFasdUAS 1.101.10
  617. .coregetd****
  618. database_Choice
  619. the_file
  620. the_File
  621. .coregetd****
  622. Sort Field IndexS
  623. Sort Field ContentsZ
  624. PreferencestoolZ
  625. PreferencesoolZ
  626. Preferencessis toolZ
  627. Preferences
  628. G    File NameI
  629. Field ContentsJ
  630. Get Field IndexK
  631. Get Field ContentsS
  632. Field NameY
  633. About this toolZ
  634. Preferences
  635. Remove Empty Values]
  636. Use Custom Delimiter
  637. Preferencesd
  638. Lithe Integration 
  639. 1999g
  640. Return to Field Info
  641. 11/29/99B
  642. 50000B
  643. aboutB
  644. againB
  645. alsoB
  646. amountsB
  647. anotherB
  648. applescriptB
  649. becauseB
  650. belowB
  651. bothersomeB
  652. builtB
  653. buttonB
  654. calcB
  655. calculationB
  656. calculationsB
  657. can'tB
  658. cannotB
  659. carriageB
  660. checkedB
  661. clickB
  662. clientB
  663. comeB
  664. completeB
  665. complicatedB
  666. contentsB
  667. continuallyB
  668. coolB
  669. correspondingB
  670. couldn'tB
  671. courseB
  672. currentlyB
  673. customB
  674. dataB
  675. noteB
  676. onlyB
  677. openB
  678. passwordB
  679. pleaseB
  680. printingB
  681. regardlessB
  682. resolvedB
  683. sharingB
  684. simpleB
  685. singleB
  686. siteB
  687. softwareB
  688. statusB
  689. structureB
  690. supportB
  691. thatB
  692. theirB
  693. thereforeB
  694. thingB
  695. thisB
  696. toolB
  697. tryingB
  698. userB
  699. usesB
  700. valuesB
  701. viewB
  702. violaB
  703. whenB
  704. whichB
  705. withB
  706. yourB
  707. g_RegisterB
  708. g_Open_DateB
  709. way to get all the values out  of the index in a single go.  I therefore resolved to come up with a simple method to do so, and la viola!
  710. Another bothersome thing about Filemaker
  711. s structure is that you can
  712. t view the field definitions for a database of which you are not the only user.  I found myself continually printing (to PDF, of course) the field det Filemaker
  713. s structure is that you can
  714. t view the field definitions for a database of which you are not the only user.  I found myself continually printing (to PDF, of course) the field dehich you are not the only user.  I found myself continually printing (to PDF, of course) the field de
  715. dex.  Click on the 
  716. Field Contents
  717.  to return a list of the feild
  718. s contents.  Complicated, eh?  Please note that this may be a time-consuming process for files with an extreme number of record
  719. macos@
  720. acos@
  721. macos@
  722. macos@
  723. macos@
  724. macos@
  725. constant
  726. entered_On
  727. entered_By
  728. updated_On
  729. updated_By
  730. updated_At
  731. original_Text
  732. g_Sub_Calc
  733. g_Calc_ID
  734. calc_ID
  735. sub_Calc_ID
  736. search_String
  737. replace_String
  738. c_Portal_Sort
  739. portal_Sort
  740. g_Portal_High
  741. c_Portal_High
  742. calc_Notes
  743. sub_Calc
  744. g_Portal_Counter
  745. search_Field_Flag
  746. replace_Field_Flag
  747. c_Pairs
  748. c_Found
  749. c_Total
  750. open_Databases
  751. search_File_Choice
  752. c_Search_FieldsList
  753. sub_Name
  754. replace_File_Choice
  755. c_Replace_FieldsList
  756. c_Calc_Constant
  757. c_Total_Calcs
  758. g_Register
  759. g_Open_Date
  760. _Date
  761. tm_TeB
  762. xtL_FillColor
  763. tm_TextL_FillPattern
  764. tm_TextL_Font
  765. tm_TextL_PenColor
  766. tm_TextL_PenPattern
  767. tm_TextL_PenSize
  768. tm_TextL_Size
  769. tm_TextL_Style
  770. ffect
  771. tm_TextL_Color
  772. ated_On, entered_By, updated_By, g_Find_Buttons, g_Find_Display, g_Temp_XML
  773. lations
  774. the_Calc
  775. .coresetdnull
  776. "Calculation"
  777. CalculationH
  778. Cancel
  779. The field you selected is not a calculation field.I
  780. Cancel
  781. You must select both a file and a field for which to get data.J
  782. Cancel
  783. Sorry, getting the field calculation requires you be running the MacOS and have Applescript installed.
  784.     orig_file
  785.     orig_File
  786. .coregetd****
  787.     the_field
  788.     the_Field
  789. the_file
  790. the_File
  791. the_calc
  792. ) = 0    
  793.  "Calc") 
  794. CalcG
  795. nulltell application "Filemaker Pro"
  796. set orig_File to the name of window 1
  797. set the_Field to get data cell "field_Choice"
  798. set the_File to get data cell "database_Choice"
  799. set the_Calc to the formula of field the_Field of database the_File
  800. set data cell "field_Contents" of window orig_File to "= " & the_Calc
  801. end tellFasdUAS 1.101.10
  802. .coresetdnull
  803. field_Contents
  804.     orig_file
  805.     orig_File
  806. the_calc
  807. the_Calc
  808. FileMaker Pro
  809. \cdon
  810. 5FMP5
  811. Alexandria
  812. FileMaker Pro
  813. APPLFMP5
  814. FileMaker Pro 5 Folder
  815. <Alexandria:Applications:FileMaker Pro 5 Folder:FileMaker Pro
  816. Alexan
  817. Alexandria
  818. j zerger
  819. .aevtoappnull
  820. .aevtoappnull
  821.     orig_file
  822.     orig_File
  823. .coregetd****
  824.     the_field
  825.     the_Field
  826. the_file
  827. the_File
  828. the_calc
  829.     orig_file
  830.     orig_File
  831. .coregetd****
  832. field_Choice
  833.     the_field
  834.     the_Field
  835. .coregetd****
  836. database_Choice
  837. the_file
  838. the_File
  839.     the_field
  840.     the_Field
  841. the_file
  842. the_File
  843. the_calc
  844. the_Calc
  845. .coresetdnull
  846. field_Contents
  847.     orig_file
  848.     orig_File
  849. .coregetd****
  850. database_Choice
  851. the_file
  852. the_File
  853. .coregetd****
  854. field_Choice
  855.     the_field
  856.     the_Field
  857. .coregetd****
  858. c_Delimiter
  859.     the_delim
  860.     the_Delim
  861. .coregetd****
  862.     the_field
  863.     the_Field
  864. the_file
  865. the_File
  866. the_values
  867. the_Values
  868.     the_index
  869.     the_Index
  870. Get Data
  871. Preferences
  872. V7BAl
  873. H}buXC
  874. QuickTime
  875.  and a
  876. GIF decompressor
  877. TextU    3/23/2000/2000/2000 generate to be delimited by something other than a carriage return.  The field index or contents returned will be delimited by whatever value you input in the field field below if this option is checked.  The default for this option is a carriage return.
  878. Hope you find this tool useful.  If you do, send me an email: jzerger@lithe.com
  879. 11/29/99
  880. """"""
  881. 1 sorted list of unique values for the field.  You can also extract a complete list of values for the field, multiple occurances will show in this list of field contents.
  882. Click on the 
  883. Field Index
  884.  button to return the field
  885. s index.  Click on the 
  886. Field Contents
  887.  to return a list of the feild
  888. s contents.  Complicated, eh?  Please note that this may be a time-consuming process for files with an extreme num
  889. Sunday
  890. Monday
  891. Tuesday
  892.     Wednesday
  893. Thursday
  894. Friday
  895. Saturday
  896. January
  897. February
  898. March
  899. April
  900. August
  901.     September
  902. October
  903. November
  904. December
  905. 1st Quarter
  906. 2nd Quarter
  907. 3rd Quarter
  908. 4th Quarter
  909. public
  910. the_contents
  911. the_Contents
  912. .coresetdnull
  913. field_Contents
  914. the_contents
  915. the_Contents
  916. FileMaker Pro
  917. tents
  918. Alexandria
  919. FileMaker Pro
  920. APPLFMP5
  921. FileMaker Pro 5 Folder
  922. <Alexandria:Applications:FileMaker Pro 5 Folder:FileMaker Pro
  923. Alexandria
  924. Alexandria
  925. j zerger
  926. .aevtoappnull
  927. .aevtoappnull
  928. ) = 0    
  929. Cancel
  930. You need to be using the MacOS with Applescript installed to use this function.DX
  931.  "container") > 0
  932.     containerG
  933. Cancel
  934. Sorry, the field you specified is a container field, and I can't read container data.F>
  935.     the_delim
  936.     the_Delim
  937. .coregetd****
  938.     the_field
  939.     the_Field
  940. the_file
  941. the_File
  942. the_values
  943. the_Values
  944. the_values
  945. the_Values
  946. the_contents
  947. the_Contents
  948. .corecnte****
  949. the_values
  950. the_Values
  951. the_conte
  952. the_Contents
  953.     the_delim
  954.     the_Delim
  955. the_values
  956. the_Values
  957. the_contents
  958. the_Contents
  959. .corecnte****
  960. the_values
  961. the_Values
  962. the_values
  963. the_Values
  964. to the_Values
  965. end if
  966.     set data cell "field_Contents" to the_Contents
  967. end tellFasdUAS 1.101.10
  968. .coregetd****
  969. database_Choice
  970. the_file
  971. the_File
  972. .coregetd****
  973. field_Choice
  974.     the_field
  975.     the_Field
  976. .coregetd****
  977. c_Delimiter
  978.     the_delim
  979.     the_Delim
  980. .coregetd****
  981.     the_field
  982.     the_Field
  983. the_file
  984. the_File
  985. nulltell application "FileMaker Pro"
  986.     set the_File to get data cell "database_Choice"
  987.     set the_Field to get data cell "field_Choice"
  988.   set the_Delim to get data cell "c_Delimiter"
  989.     set the_Values to get data field the_Field of database the_File as list
  990.     set the_Index to {}
  991.     set next_Value to item 1 of the_Values
  992. if the count of items of the_Values > 1 then
  993.     repeat with i from 1 to (the count of items of the_Values)
  994.         if the_Index contains next_Value then
  995.         else
  996.             set the_Ind
  997. ex to the_Index & next_Value
  998.         end if
  999.         set next_Value to item i of the_Values
  1000.     end repeat
  1001. set the_Index to the_Values
  1002. end if
  1003.     set the_Contents to ""
  1004.     repeat with i from 1 to (count of items of the_Index)
  1005.         set the_Contents to the_Contents & the_Delim & item i of the_Index
  1006.     end repeat
  1007.     set data cell "field_Contents" to the_Contents
  1008. end tellFasdUAS 1.101.10
  1009. .coregetd****
  1010. database_Choice
  1011. the_file
  1012. the_File
  1013. .coregetd****
  1014. field_Choice
  1015.     the_field
  1016.     the_Field
  1017. .coregetd****
  1018. c_Delimiter
  1019.     the_delim
  1020.     the_Delim
  1021. .coregetd****
  1022.     the_field
  1023.     the_Field
  1024. the_file
  1025. the_File
  1026. the_values
  1027. the_Values
  1028.     the_index
  1029.     the_Index
  1030. the_values
  1031. the_Values
  1032. next_value
  1033. next_Value
  1034. .corecnte****
  1035. the_values
  1036. the_Values
  1037.     the_index
  1038.     the_Index
  1039. next_value
  1040. next_Value
  1041.     the_index
  1042.     the_Index
  1043. next_value
  1044. next_Value
  1045.     the_index
  1046.     the_Index
  1047. the_values
  1048. the_Values
  1049. next_value
  1050. next_Value
  1051. .corecnte****
  1052. the_values
  1053. the_Values
  1054. the_values
  1055. the_Values
  1056.     the_index
  1057.     the_Index
  1058. the_contents
  1059. the_Contents
  1060. the_contents
  1061. the_Contents
  1062.     the_delim
  1063.     the_Delim
  1064.     the_index
  1065.     the_Index
  1066. the_contents
  1067. the_Contents
  1068. .corecnte****
  1069.     the_index
  1070.     the_Index
  1071. .coresetdnull
  1072. field_Contents
  1073. the_contents
  1074. the_Contents
  1075. FileMaker Pro
  1076. tents
  1077. Alexandria
  1078. FileMaker Pro
  1079. APPLFMP5
  1080. FileMaker Pro 5 Folder
  1081. <Alexandria:Applications:FileMaker Pro 5 Folder:FileMaker Pro
  1082. Alexandria
  1083. Alexandria
  1084. j zerger
  1085. .aevtoappnull
  1086. .aevtoappnull
  1087. .coregetd****
  1088. the_file
  1089. the_File
  1090.     the_field
  1091.     the_Field
  1092. FileMaker Pro
  1093. tents
  1094. Alexandria
  1095. FileMaker Pro
  1096. APPLFMP5
  1097. FileMaker Pro 5 Folder
  1098. <Alexandria:Applications:FileMaker Pro 5 Folder:FileMaker Pro
  1099. Alexandria
  1100. Alexandria
  1101. j zerge
  1102. .aevtoappnull
  1103. .aevtoappnull
  1104. .coregetd****
  1105. the_file
  1106. the_File
  1107.     the_field
  1108.     the_Field
  1109.     the_delim
  1110.     the_Delim
  1111. the_values
  1112. the_Values
  1113. the_contents
  1114. the_Contents
  1115. status
  1116. currentfoundcount
  1117. rrentfoundcountB
  1118. ountB
  1119. textl
  1120. fontB
  1121. textl
  1122. fontB
  1123. textl
  1124. fontB
  1125. textl
  1126. fontB
  1127. textl
  1128. fontB
  1129. fontB
  1130. textl
  1131. fontB
  1132. fontB
  1133. textl
  1134. fontB
  1135. fontB
  1136. textl
  1137. fontB
  1138. textl
  1139. fontB
  1140. textl
  1141. fontB
  1142. textl
  1143. fontB
  1144. textl
  1145. fontB
  1146. textl
  1147. fontB
  1148. textl
  1149. fontB
  1150. fontB
  1151. textl
  1152. fontB
  1153. textl
  1154. fontB
  1155. fontB
  1156. textl
  1157. fontB
  1158. textl
  1159. fontB
  1160. textl
  1161. fontB
  1162. textl
  1163. fontB
  1164. fontB
  1165. textl
  1166. fontB
  1167. fontB
  1168. textl
  1169. fontB
  1170. fontB
  1171. textl
  1172. fontB
  1173. fontB
  1174. textl
  1175. fontB
  1176. textl
  1177. fontB
  1178. textl
  1179. fontB
  1180. fontB
  1181. textl
  1182. fontB
  1183. fontB
  1184. textl
  1185. fontB
  1186. fontB
  1187. textl
  1188. fontB
  1189. fontB
  1190. textl
  1191. fontB
  1192. fontB
  1193. styleB
  1194. Email Lithe
  1195. jzerger@lithe.com
  1196. Field Index Tool
  1197. Open Lithe.com
  1198. http://www.lithe.com
  1199. Field Index Tool
  1200.  values.
  1201. 4.  Custom delimiter:  Sometimes you may want the li
  1202. (LIST
  1203. VDEFA(
  1204. (LIST
  1205. VDEFA(
  1206. (LIST
  1207. LISTA
  1208. VDEFA(
  1209. (LIST
  1210. VDEFA(
  1211. (LIST
  1212. VDEFA(
  1213. A    File ListB
  1214. Field ListC
  1215. Text IndexE
  1216. About
  1217. FMRLA
  1218. A    Delimiter
  1219. vT4y7
  1220. themC
  1221. register
  1222.     Helvetica
  1223. Geneva
  1224. Times
  1225.     Helvetica
  1226. Geneva
  1227. Times
  1228. .coregetd****
  1229. the_file
  1230. the_File
  1231.     the_field
  1232.     the_Field
  1233.     the_delim
  1234.     the_Delim
  1235. the_values
  1236. the_Values
  1237. the_contents
  1238. the_Contents
  1239. .corecnte****
  1240. .coresetdnull
  1241. "Contents"
  1242. ContentsK
  1243. Cancel
  1244. You must select both a file and a field for which to get data.
  1245. .coregetd****
  1246. database_Choice
  1247. the_file
  1248. the_File
  1249. .coregetd****
  1250. e_delim
  1251.     the_Delim
  1252. the_values
  1253. the_Values
  1254.     the_index
  1255.     the_Index
  1256. next_value
  1257. next_Value
  1258. .corecnte****
  1259. the_contents
  1260. the_Contents
  1261. .coresetdnull
  1262. "Index"
  1263. IndexK
  1264. Cancel
  1265. You must select both a file and a field for which to get data.
  1266. StoredCalc Number Unindexed 1
  1267. , gp_Simple_XML, gp_Print_Th
  1268.